﻿namespace FSharpChess
module Kms =
    let Move_Blank = Move.blank
    let arrA = Array.create 64 Move_Blank
    let arrB = Array.create 64 Move_Blank
    let reset() =
        arrA.[*] <- Array.create 64 Move_Blank
        arrB.[*] <- Array.create 64 Move_Blank
    let assignA(depth, move) = arrA.[depth+32] <- move
    let assignB(depth, move) = arrB.[depth+32] <- move
    let retrieveA(depth) = arrA.[depth+32] 
    let retrieveB(depth) = arrB.[depth+32] 
    

